home *** CD-ROM | disk | FTP | other *** search
- ; $VER: CDID Installer 1.0 (8.4797) Neil Bothwick
- ;
- ; This installer was written specifically for installing
- ; CDID files from the CU amiga cover CDs
-
- ;;; Set paramemters and defaults
- (set
- IDarchive 'Disks/disks.lha'
- UnarcCmd 'C/lha -I -a -t x'
- WelcomeMsg (cat
- 'CU Amiga CD ID collection\n\nThis collection has now grown to over 4000 '
- 'files, and CD filesystems do not like directories with that many files. '
- 'So they are now combined into a single archive.'
- '\n\nThe installer will ask where you want the ID files installed, and will '
- 'only install IDs that you do not currently have. Nothing will be overwritten.'
- )
- DirMsg '\nPlease select the directory where you store your CDIDs. This is usually called Disks'
- DirHelp '\nSelect the actual Disks directory, not its parent directory.'
- )
- ;;;
-
- (message WelcomeMsg)
- (welcome)
- (set DestDir
- (askdir
- (prompt DirMsg)
- (Help DirHelp)
- (default '')
- (disk)
- )
- )
-
- (message (cat UnarcCmd ' ' IDarchive ' ' (tackon DestDir '')))
- (working '\nUnarchiving CDID files')
- (run (cat UnarcCmd ' ' IDarchive ' ' (tackon DestDir '')))
-
- (set @default-dest DestDir)
- (exit)
-
-
-
-